<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage="65001"%>
<%Response.Charset="UTF-8"%>
<%
'AnyEiP 软件配置文件 2018-2-9
'禁用缓存
response.expires = 0
response.expiresabsolute = Now() - 1
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"


'设置全局变量
'全局变量
SysUrl="/AnyEiP.Press-Ver20180714/"
SysName="AnyEiP.Press - 54IT.COM - EasyUI + ASP+SqlServer2008R2版本"
SiteName="AnyEiP.Press - 54IT.COM - EasyUI + ASP+SqlServer2008R2版本"
page_num_max_per =20  '每页最大记录数
EasyUIVer ="1.3.2"  '每页最大记录数
pay_num=Year(Date())&Month(Date())&Day(Date())&Hour(Now())&Minute(Now())&Second(Now()) '收支记录的默认单号年月日时分秒

'时间段判断
if request("start_time")<>"" then
start_time=request("start_time")
else
start_time=date()-500
'多少天以前
end if

if request("end_time")<>"" then
end_time=request("end_time")
else
end_time=date()
end if

'数据库变量
'数据库链接信息
Set Conn = Server.CreateObject("ADODB.Connection")
'-本地
Sql_Server = "(local)"        '数据库服务器地址
Sql_User = "sa"				 '数据库登录名
Sql_Pass = "sa#2011"			 '数据库密码
Sql_Data = "AnyEiP.Press"				 '数据库名
strConn = "Driver={SQL Server};Description=AnyEiP_DB;SERVER="&Sql_Server&";UID="&Sql_User&";PWD="&Sql_Pass&";DATABASE="&Sql_Data&";"
Conn.Open(strConn)
If err Then
err.clear
Set Conn = nothing
response.write "数据库连接出错，请检查连接字串。"
response.end
end If

set rs=server.createobject("adodb.recordset")
set rss=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")



%>

<!--#include file="inc/FuncSQL.asp"-->
<!--#include file="inc/Function.asp"-->
<!--#include file="inc/Pub_fun.asp"-->
<!--#include file="inc/FuncTExt.asp"-->
<!--#include file="Inc/FunctionBarCodeSmall.asp"-->
<!--#include file="inc/md5.asp"-->
